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om BASIC: In VIMODE 

deo mode, opening or closing the second display 
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and machine language variables area up and the 

make space for the machine stack and OS RAM 
top of memorye The second display file is 

° The affected system and internal variables 

initialized (see Usage Section). When returning 
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Names SCROLL CSCRL from ASIC = parameters to SCRCTL) 
Input: Line Count (l- ) 
Starting Lir Nu r'€1=23) 
From Machine Code: Lair ae 
tartir ie PAG 
From BASIC tart Lin LOY Sener kt 
Lair te In S&RGaE + i 
Description: 
Scerclls. the designated f lines up 1 p starting at 
the specified line Yserts a blan the bottom 
of the scrolled: areg vith a count of <% scroll the 
entire screen up 1 nN returns the cursor sition is at 
the beginning of the blank line. 
Note: See Usage Sec utomatic scrollin 
Output: 8C = 0 Suc 
BC = j In ters 
r+ Line Count 24) 
Pag 11 


@®#eeeee?eee?ese?2?rFse?e?teee¢e¢0e¢@6mUh)GGmU—C(;dMhHMmh—(c mC FH—hUh SH SF SF SF SF 


fon) tae | 
wt ret 
¢ a 
> e a 
= ie ty) 
! ''<@ ' a 
Oo 
! oOo . @& ] 
i © 
‘ et ! 
a) i 
1 io “Ht 1 
is 3 © 
' © | 
o ® 
! ° 3 i 
~ > OH 
! vc ' 
w cj “rt 
! X cw i 
vp a 8) 
! + on U 
a x i+ Yc 
! t > r i ! 
- > et x 
! = r - Ff + ! 
© ud > w 
1 Q Y © 1” + ae a a i 
f a | oa 
' ' 4 mc c o 6 t i 
Oo re eA eS i 
1 a) ye c c + m | 1 
bt on ae t. 4 i. = S 
i wW wH a a oo ] 
cs | on] &. 4 t Se 
1 wo ®eE Ee @ ov 1 
C Oo 3 > s) Ee 
, E re) Ez rE +. o w ! ¢ 
oO ci > 3 oO 2) 
t ct + = "ae . + cw o 1 
+ cn | t & v0 oO qa ay 
1 w oy - o c + ! 
oO C 4 ac + oo eae 
! f rt O O -r4 S.-D O-rt @ ' 
I +IO ) J A Oo crt 
' OO c X ~ VU i ~ 
_ & oe ** > c > 
Ly ‘ ~ 2 ‘ . a Oo fs ' 
Vv r4 Le - = - -rt 0 
™ ] Oo o ? 0 + Be ! 
oO i) se i SG Ont O 
(om) t & ~ @ « oO + ' 
ef a a ee j £ a c oO rf rt H on oO 
ee 1 I ¢ c E c eo - @ ¢ ~ ' 
3 q a rt Oo oO Cc ££ + 2-8 i oO ww a) 
@ i - oad L£ {t oe rt UO rt N wo & a h t 
Q | YO u +7 c= Oo oe 
E 1 f es “vu oa + o@ & Qa N ee i 
pe ee = eo cc 8:0 + 
> ry es + « i. £553 ks 3 ! 
3 = Uv - ri c ® v 2 
oO ' Q °o fy ~~ (G6 ovo ~ + 1 
~ Cc — » vo nwo ° 3 
«<t | t-4 ul } re’ 6 3 UO =z 2 1 


~w or @ : 
r4 ~~ 6 
> o£ ke 
a Dn + 
Oo ; 
i] re) 
a. 4 ow e 1 
~ ow 
! o = a 1 
~J > + 
' = “et 3 | 
Ww & «8 i 
' we ~ Crt ! 
iw #”ot 
| “i M-r4d } of 1 
~.- C 
i oO Y-oA GO i 
+ -— w et 
! * O 4 ! 
1) Qc 
1 c mas oO las i 
rT) dc Ff Be 
' + mo @ € b- 1 
1) aa o <1 
1 F eo b ' 
f t 9 rd j 
i cS ounce Vv ' 
© + oOo @ ) 
j QQ Ww ts , ie ! 
ae ee? ‘ 2%” Oo 
' 1 oO Sa ~ + ' 
wo vw VU b 
' ‘ , @ Ew i 
a bt _c wv oO 
| wr Wet O L vw ] 
cs an + 1 
t mm » c ' 
bU ® @ v 
j t £ ( =2 ome i 
oO +? @ ort -e4 a> 
' + fe - & rt D ! 
- te - CY 
i] oO yp > wv 1 
) ~ 1 cr 
1 b F i) @8 oO A 3 U 
<i i £ 2) 
' b I $f. -4" it © +r t 
i ‘5 ® @ 4 ra ee 
i] as) ~~ + @ «rt - + i 
w noOovD 3 ~ 
™ i ft 0 O wi ff ! 
2 t mt € Tt 
© ‘ t oO o & D “wow i a 
- + °° ss ¢.é 
ee ' = ¢ oO € ¢ ee | ! 
X oe w Oo Cc ao pos | : ; 
1 ! il < oa “ ri + i 
[ (‘9 47 » oO ) 
F i Q C5 - O-¢ ee i 
3 ee ri + - 
= i ee > = Ss © @ 3 i] 
» 3 0 3 ia 2 
q) ] t Qo n © et + 1 
"a 0B Cc D o.oo". 8 3 
<I 1 m0 4 tae | Oe. fd > © i] 


oO | a wt 
tan) oY x rt 
~ ® 
M ® Cc. og a 
Oo E c oO 
ita) o @ 4 fi] 
a ! tj «<= ad ' Qa. 
oO Lh | 
! Q ee N ! 
@ o 
1 <, @ i 
oO ® nwv£ 
' ae 2 er | 1 
| ” 3 oo 
1 ay net ! 
mo oQ 
| OQ e 1 
| oa ~- ei 
| 1 ® Oo * Oo 1 
 -e4 tO 
' ~~ + ° 1 
dq w'< 
i] “ “- a | 
eso + ~ & 
! + 2 m ~ { 
j 
' oO t ~ ' 
0 +H J or 
! Ge ¢€ og 1 
 -r4 X Cc @® 
' + oO &. rt @ ' 
TN Q wv Ge 4 
' [a < co t 2 a oO i] 
a) a gv @ € w 
i “ Oo + mnt SS 2 " 1 
z a £9 m 1 Ec 0 ® 
i] a urn NO => 3 1 
jo | id c @ ~ 
' t i eae | OQ c c ' 
oO o7an Sy. cr eo Cc 
' © ~ oO ® | ese ~ oO i 
+- “ 4 t{ 2 3 6] 
| 4 Q Me et wo Cc e ' 
om ow a3 oO 1 2 oO 
' aa @ £ -rt E c © G4 @ ' 
WwW ti # 0 | c+ ¢ 
i t Cvs ae Urn © Ly 
uw +7) Ee 1 ts ae } 
L to WwW =O o- D3 + ¥ Ow L] 
Ww DO ad cr n Qa &@ 
NS ' ao vo ‘A O we ee | % c i 
Oo YP UOre ant (> ae aA 
Q | x ba lees oO © w 4 1 
a a ee rH O "on == o Go 2 
°* t © ts fe 4 3 Het ret ! 
, - oO oO oad GO sol, oad wwe 
a t tat = r4 orf & re ! 
i] (as) ~ c @ - Mort 
r t Q nf Oot ee oe HO 3 i 
3 ee “rf Crd O - OU 
= i ded + ‘ c+ @ pi ta °- i 
Qg == | Uv ee len Q iy il 
a) i E Q n rr UO + «a - t 
“w) 1] c ® os 3 a a | 
<a | = H as) xr vo 2 me ! 


Page 
ASC Number: 002 
= ee ee ee em ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee lt clit Sai cade As sia Sil ios a Ges ese sige alk sans AUT dls cas sce: me. ein ages 
Usage: 
Memory Usage: 
This package of machine code routines includes the followi 
internal variables: 
Name Size Description 
SERGTE 2 Scroll Control 
LS8.= Startina line number 
MS& = Number of lines to be scrol 
BOTLN i Bottom Line - Line number (0-23) 
test for scroll will be mad 
SCRLCT 1 Scroll Count- Number of times + 1 
automatic scroll wi 
When decremented to 
will not be display 
condition code will 
to user. 
CHTBI 2 Character Table (Base Address-100 
GRTBL 2 Std.Graphics Character Table (Bas 
LINLEN 1 Line Length - €80 or 85 when in 8 
CURPOS 2 Current Position CInternal Format 
LS8 = Column- Position 
MSS = Line Position 
DFACDR 2 Current Display File Address 
MASKB 1 Mask Byte Cbit 0 = OVER) 
Cbit 2 = INVERSE) 
ATTBYT 1 Attribute 8yte CS2%¢: 8 = °.2 ee 
Cbits 3 =- 5 = PAPER) 
Cbi 6 Sen Lom) ¢ 
Cbit 7 - FLASH b 
GTINDX 1 *“Get” Index - Used by GTCHAR 
STRGCT 2 String Count - Contains remaining 
when BC=3 CScreen Full) is 
returned from the Write String 
service WRSTRG CWRSTRB). 
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Display File Bit - Current Bit Position 


YE CSETMDB) are as follow 


oe 


“i 


les used for passing parameters in 
e initialized by SETMDOB: 


and other system variables must be 
‘ At minimums chunks 0-3 and chunk 7 
Banke 

ted into a8 machine code program 
rom chunk 4 through 75 taking into 
f certain structures when the second 
Es Machine code above RAMTOP is not 


artridge 


*eeoses?8?s?8tse?eee?sre?s?teeeeeeéeeseste © © &€ @ @ 


Registers: 


Other than as documented for output valuess no claims are made as 
to preservation of any register contents except for the IY 


Register which must always contain the value 5C3AH for access to 


the standard system variables. 


Automatic Scrolling: 


As initialized, test for scrolling will be made when the print 
position goes to the. next line following the bottom line on 
screen CBOTLN=23=24th line). Condition Code 3 €Screen Full) will 
be returned since SCRLCT will decrement to zero. If SCRLCT is 
set to some larger values then the parameters in SCRCTL will be 


used to automatically scroll the designated number of lines 
beginning at the specified line number. As. vanitiagzazed, this 
will .scroll the entire screen wu. By performing a POKE or 


setting the variables BOTLN and SCRCTL to the desired valuesy 
automatic scrolling can be done using smaller sections of the 
screene When working from BASIC it is recommended that BOTLN ‘ be 
set to Line °21 -€15H) and SCRCTL+1 be set to 21 C15H) to avoid 
conflict with the Edit Line which uses the bottom two lines of 
the screen. Note that once SCRLCT expiresy it will be set to 1. 
If a different value is desired, it must be reinitialized by the 
user after receiving the ’Screen Full’ condition. 


By setting the SCRCTL variable and invoking the SCROLL CSCRLB) 
routine any portion of the screen may be scrolled at any time. 


Margin Control: 


In 80-Column Modey there are actually 85 character..positions . per 
line. The variable MARGIN determines the offset of the beginning 
of the 80 column line from the left side of the screen and has 
valid offset values of 0, 1 or 2. An offset value of 1 centers 
the 80 column line on the screens; 0 begins at the extreme left 
Side}. 2 terminates at the extreme right side. The default value 
is 1. When MARGIN is set to 0s the variable LINLEN can be set to 
85 to permit access to the 5 extra print positions. Whenever 
MARGIN and/or LINLEN are modified, a ‘Set Cursor’ operation 
should be done to insure, the integrity of the print position. 


NOTE: Since the different MARGIN values result. in different pixel 
positions for the columns, care must be taken in mixing 
line length and margin values on the same line. 


Saving BASIC Programs: 


To SAVE a BASIC program which is using these routines -you must 
first put the TS 2068 in normal video mode by inputting °0’ to 
SETMDB. This returns the system variables to values compatible 
with .the state of the machine when the program will be loaded 
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ADL = ASC 002 80-COL.MOOE SUPPORT CRZ80/11 version 10.36.14 3-Jan-84 19:2:10:4 Page 2 
DEFINITIONS I080.SRC 
22 SUBTTL DEFINITIONS 
we ; 
24 ; 
ae seoeaek DEFINITIONS x82 
26 ; 
27 INTERN WRCHAR, WRSTRG' SETCUR, SETATT, SETMSKy CLRSCN,y SCROLL 
2é INTERN GTCHAR, GETATT, GETCUR 
29 ; 
30 INTERN WRCHRB,y WRSTRB, SETCUB, SETATB, SETMSB, CLRSCB, SCRLB 
31 INTERN GTCHRB, GETATS, GETCUB 
32 ; 
33 INTERN SETMODE, SETMDB 
ae 
35 ; 
=0018 36 SCRSZ EQU 24 +, °24% LANES 
=1701 ST SCINIT EQU 1701H >> SCROLL CONTROL INITIALIZATION 
=1800 38 CLINIT EQU 1800H $3 CLEAR SCREEN CTL. INIT. 
=047E" 39 CHRSET EQU CCCHRST)-100H) $CHAR.TABLE-100H 
=O77E° 40  GRPHST EQU CCGRPST)-100H) $3 GRAPHICS TABLE 
41 ; 
=OE 42 CHNGVIO EQU OE8EH >; ROUTINE IN ROM EXTENSION 
1720 43 RECLEN EQU 1720H s ROUTINE IN HOME ROM 
44 : 
=O0FF 45 HREXPT EQU OFFH $- HOME ROM EXT.SELECT PORT CBIT 7) 
=O0F4 46 DKHSPT EQU OF4H + DOCK HORIZONTAL SELECT PORT 
47 ; 
=5C48 43 VARS EQU 5C4BH s SYSTEM VARIABLES 
=5C65 49 STKEND EQU 5C65H ; 
=5C78 5 UG EQ 5C7BH ; 
=5C70D 54 COORDS EQU 5C70 ; 
=5CB2 BZ RAMTOP EQU 5CB2H ; 
=5CB4 53 PRAMT EQU 5CB4H ; 
=5CC2 54 VIDMOD EQU 5CC2H ; 
=5CC3 55 PARAMS EQU 5CC3H $ CLocation 23747) 
=6840 56 DRIVES EQU 6840H ; 
=12C0 57 INSERTSZ EQU 7TBOOH-ORIVES 
20840 58 MOVESZ EQU DRIVES-6000H 
=FT7CO 59 DEST T EQU OFFFFH-MOVESZ+1 
=97C0 690 Pt X EQU DEST7-6000H 
61 
=1000 62 FIXTBL EQU 1D00H 
63 
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INPUTS AND ENTRIES I980.SRC 
65 SUBTTL INPUTS AND ENTRIES 
66 ; 
67 ; 
68 ; : 
69 ; *%*XPARAMETER INPUTS AND ENTRY POINTS FROM BASIC 
70 ; 
71 ; WITH 
72 ; MOOULE LOADED 
73 ; AT 57344CE000H)D 
74 ; DECIMAL ADDRESS 
nae) I Tr iors s, SA2) cogent? la netimme pete SYA TTL SETP m Se swine apes C pru GS 6 tae Rie pecs ON a Rae aa a en en 
0000" 20 76 DATAB DEFB 20H +; CHAR.-CODE FROM BASIC 57344 
0001’ G3: 003F * ord WRCKRES JP WRCHO s ENTRY TO WRITE CHARACTER 57345 
C006" CS GLa 78 WRSTRB3 JP WRSTRO $ ENTRY TG WRITE STRING 57348 
79 ; > Csee PARAMS above) 
OUT 8000 80 LINCOL DEFW 0 > SET CURSOR PARAMETERS 
81 ; LINCOL=COL. (€0-79) $7351 
82 ; LINCOL41=LINE (0-23) 57352 
0009" 63.0184" 83 SETCUB: Jp SETCBO: 3; ENTRY 70° SET -CURSDOR POSN. 57353 
000C” 1800 84 CLRCTL DEFW 1800H ; CLEAR SCREEN CONTROLS 
85 ; CLRCTL=STARTING LINE NO. 57356 
86 ; CLRCTL#1=LINE COUNT 57357 
OO00E’ C3) 0273." 87 CLRSCB3 JP CLRSBO s ENTRY TO CLEAR SCREEN 57358 
EBs ae Tisai 88 ATTCTL DEFB 38H ; ATTRIBUTE CONTROL 57361 
89 ; BIT 7=FLASH €0 IN 80-COL.) 
90 H S=BRIGHTCO IN 80-COL.) 
91 ; 5 
92 ; 4=PAPER COLOR 
93 ; 3 
94 ; 2 
95 ; 1= INK COLOR 
96 ; 0 
OOL2" G3: 02F 3” 97 ETATB: JP SETABO $ ENTRY TO SET ATTRIBUTES 57362 
OO 255" OG 98 MSKCTL DEFB 0 >; MASK CONTROL FROM BASIC? 57365 
99 ; ; BIT 2=INVERSE 
100 ; O=OVER 
SOLS. 63 0310. 101 SETMSB? Jp SETMBO + ENTRY TO SET MASK CONTROLS 57366 
0019” 9000 102 GETCTL DEFW 0 ; “GET*® CONTROL FROM BASIC 57369 
103 ; FORMAT IS AS FOR LINCOL 
Goa <) 03) 0326" 104 GTCHRB: JP GTCHBO $ ENTRY TO. GET CHARACTER 57371 
QOLE’ 3° 03SCO" 105 GETATB? JP GETABO $ ENTRY TO GET ATTRIBUTE 57314 
GO2i £50304" 106 GETCUB: JP GETCBO $; ENTRY TO GET CURSOR POSN. 57377 
0024° 00 107 VIMODE DEFB 0 +s VIDEO MODE CONTROL 57380 
108 ; O=NORMAL 
109 ; 8=80-COL.MODE 
0025” 3+ O3F 1° 110 SETMDB: Jp STMDBO $; ENTRY TO SET VIDEGQ MODE 57381 
GO287" (Lod 111 SCRCTL DEFW ETOLH. 3: -SCRBELC- CONTROL 
ie Ba ; SCRCTL=ESTARTING LINE NO. 57384 
113 ; SCRCTL#1=LINE COUNT 57385 
OO 2a Gs OO bak 114 SCRLB? JP SCRLBO $ ENTRY TO SCROLL 57386 
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version 10.36.14 


SUBTTL OTHER VARIABLES 


DEFB 17H 
| 

DEFB 1 
OEFW CHRSET 

EFW GRPHST 

EFB 50H 
DEFW 1851H 
DEFW 4000H 
DEFER 0 

Fe 38H 
DEFB 80H 
OEFW OH 
OEFB 1 
DEFB < 


version 10.36.14 


es 8 ee ee ©8 4 oe 4s 6 Se ws Ge 48 @F ws 26 |e @e 8 32 os 26 os we 


BOTTOM LINE CLINE AFTER 
WHICH SCREEN IS CONSIDERED 
FULL. .AUTOMATIC SCROLL 
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DEFINED GC 
ADORESS=-1 
FOR INDEX 


GRAPHICS TABLE 


TO DISPLAY THE 
IS IN “DATAB’ 


INTABLE (C20H=7FH) 


IF STD.GRAPHICSC80-8FH) 


INTO TABLE 


FOR INDEX INTO TABLE 


HL=PIXEL PATTERN 


EL PATTERN 


F ENO OF LINE 


OF NEW LINE 
BUMP LINE NO. 
LINLEN+1=START 


R TABLE 
Ne IN OISP 
INDEX INTO 


ne 
~ 


TABLE 


TABLE/HL=DF 


F PAST, “BOTTOM” LINE 


TO PUT. CHARACTER IN DISPLAY FILE 
Os 
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WRITE «CHARACTER 1080.SRC 
00868" E5 195 PUSH: HE ; DF ADDRESS 
008C” 3A 0038” 196 LD Ay CMASKB) > GET OVER AND INVERSE CONTROLS 
OOSF". 06° FF 197 LD By-1 
G091” iF 198 RRA 
O092". 38° Gf . 199 JR CyWRCH3 >; IF XORING NEW INTO OLD 
0094" 04 200 INC 8B ; Bs-1 IF XORING =0 IF NOT 
C095" >2EF 201 WRCH3 RRA 
0096” 1F 202 RRA 
CORT SF 203 SBC AyA 
0098" 4F 204 LD CyA >: C=a~I FOR: INVERSE. .=0 LF NOT 
OO79.”. BE: 08 205 LD Ay8 > SCAN COUNT 
0098" 08 206 WRCHS EX AF,AF’ > SAVE SCAN COUNT IN ALTERNATE 
G8O9G" «C5 207 PUSH BC > SAVE MASK VALUES 
0090" 0D5 208 PUSH DE > SAVE CHAR.-TABLE ADRS 
OO09E* DD 21 0000 209 LO TX 50 > SAVE PTR.TO STACK 
O0A2” ODD 39 210 ADD IX SP 
0044" 56 Za4 LD 0, CHL) > READ SCAN LINE FROM DF 
O0AS "4 ES 212 PUSH’ “HL ; SAVE ADDRESS 
OOn6" EC 213 LD Ast 
OOA7” EE 20 214 XOR 20H > TOGGLE TO ALTERNATE DF 
OOA9" 67 225 LO HyA 
OOAA” CB 6F 216 BIT 55h ; TEST WHICH: OF 
OOAC” 20 01 23 JR NZyWRCH6 + IN OF2 
QOAE” 23 218 INC HL + NEXT BYTE 
QOAF”’ SE 249 WRCH6E D E, CHL) > READ SCAN LINE FROM ALTERNATE OF 
0O0B0° €E8 220 EX DE sHL s SCANS TO HL. LAST DF POS.IN DE 
O0b8i" 78 221 LD Ay8 . TES IF “OVER” FS ACTIVE 
00B2° A7 222 AND A 
O083" 20 TA 223 JR NZ,sNOXOR + YES-RETAIN OLD DATA 
0985". , 3A -O03E” 224 LD A, CDFBIT) +; NO- CLEAR OLO DATA AT CHAR.POSN. 
0088" Dé 07 225 SUB 7 ; 
OOBA”’ ED 44 226 NEG 
O0BC’ 02: O3FF Le a | LO BC,O03FFH > MASK ' 
DOpm 2806 228 JR Z 1 > NQ NEED TO ADJUSTCCHAR.STARTS AT 
GOCE. 37 229 : SCF 
Go0C2"* ..CB. £8 230 NEXT1 RR B +o SRIF T UMASK: “A” TIMES 
00C4”° CB 19 231 RR pte OS START AT: Sit, PaGP' By BIT 3. OF 
00C6"° 3D 232 DEC 4 ;) GR OLT.-3. OF: BS 
O0GT 7?) "29 FS 233 JR NZsNEXT1 
0009"  7¢ 234 NORR1I LO AyH + SCAN LINE FROM OF 
OOCA” AO 235 AND 8 
00C8” 67 236 LO Hy A > RETAIN ADJACENT CHAR.PIXELS 
oocc’ D 237 LO AgL ; CLEAR CURRENT CHAR.PIXELS 
QO0CD’ Al 238 AND C 
Ce OF 239 LD LyA > HL=OLO BIT ROW 
OGL". ZA" OO3E * 240 NOXOR LO A,CDFBIT) ;<GET STARTING BIT POSN. 
0002" Dé 07 241 SUB 7 
0004" ED 44 242 NEG 
G0D5' 6S 243 PUSH HL 3 SAVE SCANS 
GUT . 'DO--6E- 00 244 LD L»CIX) > PTR. TO CHAR.SET 
QODA” OD 66 01 245 LD Hs CIX+1) 
Q0DD" 46 246 LD By CHL) ; SCAN LINE FROM CHAR.SET TO BC 
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WRITE CHARACTER 1080.SRC 
ee : © 
OODE*~ O& 00 247 LD C,0 ; CPIXELS IN By BITS 7-2) 
OOE0” ~F5 248 PUSH AF ; SAVE A AND FLAGS 
OOEi° 78 243 LD A,B ; PIXELS FROM CHAR.. SET ® 
OGE2* £6 FC 250 AND OFCH ; LIMIT TO 6 PIXELS 
O0E4" 47 251 LD ByA ; 
O0ES*:. -F2 252 POP AF ; RESTORE A AND FLAGS e 
O0E6” E1 253 POP HL ; RESTORE SCANS 
OOE7” 28 08 254 JR Z,NORR2 ; NO SHIFT NEEDED 
OURO" Ay 255 AND A 3 CLEAR CARRY & 
OOEA” CB 18 256 NEXT2 —- RR 8 : SHIFT °A” TIMES 
ogec’ ce 19 257 RR C 
QOEE” 30 258 pec =O A a 
SOEE“) 20 °F9 259 JR NZ sNEXT2 
OOF1” 7C 260 NORR2~ LO AyH 3; SCAN FROM OF 
QOF2° As 261 xOR 8B ; INSERT/COMBINE NEW CHAR. & 
OOF3° 67 262 LO HyA 
QOOF4° 7D 263 LD AyL ; 
OOFS” Ag 264 xOR C o 
OOF6° 6F 265 LO LyA ; DF XOR CH.eSET=>HL 
OOF7° OD TE 02 266 LO AyCIX+2) ; TEST IF INVERSE ACTIVE 
OOFA’ AT 267 AND A ta) 
OOFS° 28 1A 268 JR ZyNOINVERT 
OOFD’ 3h 003E° 269 LD A,CDFBIT) 
0100° 06 07 270 Sus = 7 o 
0102" ED 44 271 NEG 
0104° ~01 FCOO 272 LO BCsO0FCOOH ; MASK TO INVERT 
0107” 28 08 273 JR ZsNORR3 o 
0109” AT 274 AND A 
O10A° CB 18 27S) MERITS) ORR 8 ; SHIFT MASK °A® TIMES 
020C° CB 19 276 RR C Ca] 
O10E° 3D 277 DEC OA 
O10F° 20 F9 278 JR NZ sNEXT3 
0111° 7C 279° + NORR3 LO AyH e 
0112” AB 280 XOR 8B 3; INVERT CHARACTER 
0113° 67 281 LD HyA 
0114" 70D 282 LO Agyl @ 
0115° Ag 283 xOR C 
0116°. 6F 284 LD LyA 
0117° EB 285 NOINVERT EX ODEp,HL ; DF ADRS. TO HL-SCAN LINE IN DE a 
0218° 73 286 LO CHL) SE _$ WRITE SCAN LINE TO OF 
Uis9” ES 287 por ONE 3; ALTERNATE ODF 
O11A". 72 288 0 CHL) 5D ; WRITE SCAN LINE TO OF oo 
0118’ 01 289 Pop OE 3 CHAR.SET 
O11C" C1 290 PoP BC 3 OVER/INVERSE INDICATORS 
0110” 08 291 EX AF, AF’ ; RESTORE SCAN COUNT the 
O11E° 24 292 | oa ; NEXT SCAN IN DF: 
Osar 13 293 INC §=©DE ; NEXT BYTE IN CHAR.FILE 
0120° 30 294 Dec. A ; TEST IF MORE SCANS t 
0121” C2 0098° 295 JP NZsWRCHS 
Giza" G1 296° WRCHT ~ POP. RE ; TOP SCAN IN OF 
OLes* C2 297 PoP BC 3; CURSOR POSITION e 
0126” OD 298 vec. 3; ADJUST CURSOR POSITION 
& 
& 
® 
® 
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WRITE CHARACTER I080.SRC : 

0127” 3A 003E” 299 LD A,COFBIT) $ ADJUST BIT POSITION 

012A" Dé 06 300 SuB 6 

012C° 32 003E” 301 LO CDFBIT),A $ STORE UPDATED POSITION 

012F° 30 OE 302 JR NC »WRCHXT $ NEXT CHAR.IN SAME BYTE 

0131" Cé 08 303 ADD A,8 3 NEXT CHAR.IN NEXT BYTE 

0133" 32 0035” 304 LO CDFBIT),A ¢ STORE ADJUSTED VALUE 

0136" Tc 305 LO AyH s ADJUST DF ADRS TO NEXT BYTE 

0137° EE 20 306 XOR 20H ; TOGGLE TO ALTERNATE DF 

°0139" 67 307 - LO Hy A 

O13A° CB 6F 308 BIT SyA 3 TEST WHICH DF 

013C° 20 01 309 JR NZ »WRCHXT $ DONE IF DF2 

O13E" 23 310 INC HL ; NEXT BYTE IN DF1 

013F" CoO 0550° 311 WRCHXT CALL STPOSN ; STORE NEW POSITION 

0142° O€ 00 312 GOODRET LD C30 $ RETURN BC=0 

0144° 06 00 313 © ERRRET LO B,0 $ ENTER HERE WITH C NON-ZERO 

0146" C9 314 RET 

315 ; 
0147° O€ 01 316 INVPAR L Cyl $ RETURN 8C=1 FOR INVALID PARAMETERS 
0149" 18 F9 317 JR ERRRET 
318 ; 

0148" 3£€ 18 319 TVFULQ LO A,SCRSZ $ TEST IF NEW LINE IS OFF SCREEN 

0140° 90 320 SUB : 3 A=LINE NO. 

O146E° 57 321 LO D,A $ SAVE IN D 

0O14F° 3A 0020” , ae LO A,CBOTLN) $ GET BOTTOM LINE 

0152” BA 323 C 0 
| 0153° 02 0507’ 324 NCyUPDPOSN ON SCREEN - RETURN TO WRITE CHAR. 
| VIA UPDATE AND STORE POSITION 
| 0156*% 3A 002E”’ 326 LO A, CSCRLCT) TEST SCROLL COUNT 


0159° ~-30 Ser DEC A 

OI5A° 20 08 328 JR NZy9TVFUL1 

0156". “SE O01 320 LD Ayl 

ioe. 322. 002E° 330 LO CSCRLCT),A 
O162" Ci 331 POP 
Q762* .Ci 332 POP 
Olea": Oe U3 

0265. °.\:28' 00 

OPG6G 0 2 Be. 002 
016A” ED 4B 


DO AUTOMATIC SCROLL USING SCRCTL 
REINITIALIZE TO 1 


DISCARD 


RETURN TO WRITE CHAR. 
RETURN 8C=3 FO 


R SCREEN FULL 


we we 


UPDATE VARIABLE 

GET SCROLL CONTROLS CSTARTING LINE 
AND LINE COUNT) 

RETURN TC WRITE CHAR. VIA SCROLL 
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WRITE STRING I080.SRC 


341 SUBTTL WRITE STRING 
342 ; s HERE FROM BASIC ENTRY TO 
343 ; + WRITE CHARACTER STRING TO SCREE 
344 ; + STRING IDENTIFIER CCH.CODE) IN 
345 ; > SYSTEM VARIABLE PARAMS AT S5CC3H 
Giti*: SA“S6C3 346 WRSTROQ LO A, CPARAM$S) 
O174" €6 4F 347 AND 1FH ; MASK OFF UPPER BITS 
O176, F640 348 OR 40H >; STRING VARIABLE IDENTIFIER 
COLTS SSF 349 LD DyA ; SAVE IN D 
0179" 2A 5C4B 350 LO HL» CVARS) ; FIND STRING 
Chee.” Le 351 WRSTR1 0 Ay CHL) : 
O40. -E6e TF 35:2 AND O7FH ; TEST IF END OF VARS AREA 
Otte ee 3o Jo4 JR ZysNOSTRG >; NO FIND - RETURN BC=2 
Oi62° BA 354 CP D 3 Teot: LF UMATEH 
Ote2*.: 28" os 355 JR ZyWRSTR2 ; FOUND STRING 
0184° D5 356 PUSH ODE ; SAVE STRING ID 
Cae ee are 357 CALL RECLEN » RETURNS ADRS.OF NEXT VAR.IN DE 
ot8e°) Es 358 EX DE, HL : ADRS. TO HE 
SS aman © 359 POP DE ; RESTORE STRING ID 
C288". 58° FO 360 JR WRSTR1 
OBE": 23 361 WRSTR2 INC HL ; GET LENGTH 
C280) 4E 362 LD C,CHL) 
Gt8e" 23 363 INC HL 
O18F°” 46 364 LO By CHL) 
SoC a 365 INC HL ; taekoy TEXT COBE 
ORF 88 366 LD Ay8 > TEST IF NULL STRING 
Gz92°: Bz 367 OR C ; 
OP 94.8 368 RET Z > RETURN IF SQ 
369 ; 
370 ; ; ENTRY FROM MACHINE CODE WITH 
iy ip! ; +; ADDRESS OF CHAR.CODE “°STRING’ 
372 ; + IN HL AND LENGTH IN B 
373 ; 
O194" TE 374 WRSTRG LOD Ay CHL) ; GET CODE 
9295." ES 375 PUSH HL 3 SAVE ADRS. AND 
OL96:" \'C5 376 PUSH BC ; COUNT 
OLe9T. : CO°0042" at¢ CALL WRCHAR + WRPte AY 
OL9A" (TS 378 LD A,C > TEST IF GOOD 
0198 50 379 OR 8 
296° 209 380 JR NZ gWRSTX1 ; EXIT IF INVALID CODE OR 
381 ; PRASGReeNn FUEL 
GCISE & Ge 382 WRSTR3, POP BC > COUNT 
O79F >. SL 383 POP HL ; ADDRESS 
CERO 25 384 INC HL s NEXT CHAR. 
O01A1° 08 385 DEC BC ; ADJUST COUNT 
ee ai 2 386 LD AyB ? tee IF OBGNE 
OLAS. Ba 387 OR C 
O1A4" 20 E€ 388 JR NZ gWRSTRG >; WRITE NEXT CHAR. 
QO146"% - C9 389 RET > RETURN BC=0 
390 ; 
OAAT 5 TS 391 WRSTX1 LO AyC ; SAVE ERROR 
OLAS FESOL 392 cP 1 ; TEST- IF UNRECOGNIZED CODE 
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551 SUBTTL CLEAR SCREEN 
552 > 
555 ; 
554 CLRSBO: + HERE FROM: BASIC ENTRY -10.-CLE 
48 000C’ 555 LD BC, CCLRCTL) >; GET CONTROL INFO. 
556 ; 
55.7 CLRSCN?: > ENTRY WITH BCS=LINE COUNT AND 
558 $ STARTING LINE NO. FOR CLEAR 
559 D Ay sd 
560 AND A ; TEST VALIDITY 
0147” 561 Jp Z»yINVPAR > ERROR IF COUNT=0 
562 ADD AgC 
01 563 CP 1 
0147’ 564 JP CyINVPAR $s BRROR- TF. 8a0<t 
19 565 cP 25 
0147” 566 JP NCyINVPAR > ERROR IF 8+C>24 
0292." 567 CALL -CLRSCO ? 00 SERVICE 
0142° 568 JP GOODRET + RETURN B8C=0 
569. ; 
570 ; 
Vf § CLRSCO PUSH BC 
18 Ste LO AySCRSZ >; CONVERT TO INTERNAL FORMAT 
ES SUB C 
574 LO BA 
0033” em LO AsCLINLEN)D 
576 INC A + Seo. 10 CoE d 
577 LD CyA 
053F" 578 CALL LNBU >; GET ADDRESS 
579 LO D»B 
580 LD Es¢ s SAVE POSITION 
581 POP ~ BC 28RTGs.: BC 
582 PUSH ODE 
583 CELRSCI-. £o A,gl ; GET # DOF LINES THIS BLOCK 
584 RLCA 
585 RLCA 
586 RLCA 
587 LO CyA 
08 588 LO 4,8 
589 SUB C 
590 CP 8 + COMPARE TG TOTAL LINE COURT 
30 591 JR CetLRSCT 
592 CERSC2 LO A,B > NO. OF INES 
00 593 LO B,0 > REMAINING LINES 
594 PUSH BC 
595 CLRSGS3 LO ByA 
08 596 LD C,8 > SCAN COUNT 
597 CLRSCS LO A,§& 
598 PUSH BC 
07 599 AND 7 
600 RRCA 
601 RRCA 
602 RRCA 
H=—-COL MODE SUPPORT CR780O/11 version 10.4.34.14 R—JjJan-R84 1921034 Page Ge-1 
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version 10.36.14 


LOD C,A 

LO B;0 

DEC Cc 

PUSH BC 

PUSH AL 

LO DyH 

LOD Pet 

LO CHL),00 
INC DE 

LOIR 

POP HL 

POP BC 

LO AyH 

BIT 5 yA 

JR NZ,CLRSC6 

OR 20H 

LO H,A 

JR CLRSCS 

AND OOFH 

LO HA 

INC H 

POP BC 

DEC G 

JR NZ,CLRSC4 
POP BC 

9) AyB 

AND A 

JR LeELRSAKT 

LD L,0 

JP CLRSC1 
oP BC 

JP UPDPOSN 

LD CyA 

LO A,B 

SUB C 

LD B,A 

PUSH BC 

LOD AyC 

JR CURSCS3 


version 10.36.14 


of «8 we 


7. 


of «0 8 ee «8s 


es ee of 


BC=32%NO. OF LINES 

C=0 IF 256 FOR 8 LINES) 
ADJUST 

CLEAR OF 

00 DF2 


NEXT SCAN R 
POP SCAN COUNT 


TOTAL LINE COUNT 


HL=START OF NEXT BLOCK 
B=REMAINING LINE COUNT 
POSITION 


RETURN VIA UPDATE AND STORE 
SAVE NO. LINES THIS BLOCK 


ADJUST TOTAL LINE COUNT 


REMAINING LINE COUNT 
LINES THIS BLOCK 
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ATTRIBUTE CONTROL IG80-SRC 
643 SUBTTL ATTRIBUTE CONTROL 
644 ; 
645 ; 
646 ; 
OOZES” 647 SETABO: ; HERE FROM BASIC ENTRY TO SET ATTRIBUTES 
O23" SA GGis * 548 LD A,sCATTCTL) > GET CONTRCL INFO. 
649 ; 
O2FS4’ 650 SETAT? ¢ > ENTRY WITH ATTRIBUTE BYTE IN A 
0266" 86 07 651 AND 7 $ GET INK: SELECTION 
O2F8° 4F 652 LD CyA > SAVE 
O2ZFo" “3A SCC2 653 LD A,yCVIOMOD) ; “TEST iF -OF2 DPEN 
Gero”. AF 654 AND A 
OZED”:  C&- 01747" 655 JP ZsINVPAR > INVALID IF DF2 NOT OPEN 
0300" 79 656 LD AyC 
C304". LF 657 RLA 
Bowe: te 658 RLA 
CAGS at 659 RLA > SHIFT TO:H/W POSITION 
0304" F5 660 PUSH AF s SAVE ROTATED VALUE 
0305" F6° 06 661 OR 6 > SET H/W MODE 
0307°. 47 662 D ByA s VALUE FOR H/W 
O308" -DS6..FF 663 IN Rhy CHREXPT) ; 
G30A°. E6- CO 664 AND OCOH >; PRESERVE BITS 7 AND 6 
O30G" <89 665 OR 8 ; SET VIDEO MODE VALUE 
0300°-" 03 FF 666 OUT CHREXPT),A ¢3 SET H/W 
GSGF"" (P6240 667 OR 40H +; UPDATE VIOMOGD 
C402 5° 132 aCGe2 ‘668 LO CVIDMOD),A ; 
ee Soa os | 669 PO AF 3; TINK: SELL IN. BETS 3-5 
O84 5 8 i Ze 670 CPL +; GET COMPLEMENTARY COLOR 
0326". Bt 671 OR c + COMBINE WITH INK 
ORF Se. 0089" 672 LO CATTBYT)5A > SAVE IN VARIABLE 
OSiA~ C3 C142" 673 Jp GOOORET ; RETURN 8C=0 
674 ; 
675 ; 
676 ; 
0310’ 677 SETMBO: >; HERE FROM BASIC ENTRY TO SET MASK 
0320". SA 0075." 678 LO Ay CMSKCTL) > GET CONTROL INFOQ. 
679 ; 
0320" 680 SETMSK3 ; ENTRY WITH MASK VALUE IN A 
Os20".. “32 10038 * 681 LD CMASKB),A + STORE MASK FOR APPLICATION TO FUTURE 
Os2a CS Ot42" 682 Jp GOODRET > DISPLAYS 
683 ; 
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ADL - ASC 002 
VIOEQ MODE CON 


O3F1” 

OSFi* “SA 
O3F4’ 

O3F4” AT 
G3F5°. 28 
OSE 2 Fe 
O3F9" - 'G2 
OSFCt 24 
Dorses ae 
0402" 3€ 
0404" 32 
0407." 3E 
G4O9" = 32 
640C": SE 
040E” 32 
O622* SE 
Baio” ae 
0636". -21 
OG295 28 
041C”° AF 
0410" 32 
0420" 32 
0423" 32 
US26 4k 
0429" 22 
0420” 21 
O42F° 22 
04827. 32 
OR oe. Be 
G439° 32 
O63B"" Sz 
Lt ai 7 
0441" 32 
0444° 3€ 
0446" 47 
0447° 3A 
0444" AT 
0448" 20 
0440" 80 
044E” CA 
6454" "24 


ADL = ASC 002 


80-COL.MODE SUPPORT CRZ80/11 version 10.36.14 
TROL I1080.SRC 


326 SUBTTL VIDEO MODE 
827 ; 
828 ; 
829 STMOBO?: : 
830 ;: 
0024" 831 LD -A,yCVIMODE)D 
832 ; 
833 SETMODE: ; 
834 : 
835 AND A 
4F 836 JR Z,SETMD1 ; 
08 837 cP 8 ; 
0147° 838 Jp NZ,INVPAR 3 
839 ; ; 
840 ; $ 
1701 841 LO HL»SCINIT 3 
0028” 842 Lo CSCRCTL) »HL 
17 843 LO Ay23 ; 
0020° 844 LO CBOTLN)sA_ 3 
01 845 LD Agl ; 
002E° 846 LD -€SERECT)sA -? 
50 B47 LO A,s80 ; 
0033° 848 LO CLINLEND 9A 3 
01 R49 LO Ayl ; 
0030° 850 LD CMARGIN),A 3 
1800 @51 LD HL sCLINIT 3 
000C”’ 852 LO CCLRCTL),HL 
853 XOR A 
0038° 854 LD CMASKB),A 3 
0038” 855 LO. TREC TYAS 
003C’ 856 LD CSTRGCT4+1),A 
O47E° 857 LD HLsCHRSET 3 
002F° 858 LO CCHTBL)sHL 3 
O77E° g59 LD HL,GRPHST 3; 
0031° 860 LO CGRTBL)»HL $ 
361 f : 
B62 ; ; 
363 ; ; 
0000° 864 LO CDATAB)sA 3 
0007’ 865 LO CLINCOL) 5A 3 
0008” R66 LD CLINCOL41),A 
0015” R67 LD CMSKCTL)5A $3 
0019” 868 LO CGETCTL)5A 3$ 
001A’ 869 LO CGETCTL4+1),A 
06 870 D As6 : 
871 SETMD1 LD ByA ; 
5CC2 872 LO AsCVIOMOD) 
873 AND A ; 
10 874 R NZ ySETMD2 
875 OR 5 ; 
0142° 876 Jp Z,GOODRET ’ 3 
12C0 877 LD HLs INSERTS2Z 
S0-COL.MODE SUPPORT CRZ80/11 version 10.36.14 


3-Jan-84 19:10:34 Page 
CONTROL 


HERE FROM BASIC ENTRY WITH MODE IN 
“VIMODE ” 


ENTRY WITH MODE IN A 


TEST: FOR VALIOITYT 


8=80 COL.MOQDE 
INVALID PARAMETERS 


INITIALIZE VARIABLES 
SCROLL CONTRO 

BOTTOM LINE 

SCROLL COUNT: 

LINE LENGTH 

MARGIN 
CLEAR SCREEN CONTROL 


MASK BYTE 
WRSTRG REMAINING COUNT 


STO. CHAR. SET 


STO. GRAPHICS SET 


INITIALIZE BASIC INPUTS 


DATA BYTE 

COLUMN 

; LINE 

MASK CONTROL 

“GET” ‘COL. 

Ponoel’ -BINE 

SET H/W TO 64-COL.MODE 
SAVE MODE 


TEST CURRENT MODE 


CURRENT MODE=0 TEST IF NEW MODE=0 
RETURN BC=0 
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ADL - ASC 002 80-COL.MODE 


VIDEO MODE CONTROL 


ADL 


0454" 11 
O4¢57" 19 
0458° ED 
0450" °9 19 
0450" ODA 
0460” ED 
0464" AT 
0465" ED 
0467” D2 
046A" CD 
0460" 78 
046E” COD 
O471.",° G5 
OA Fe i LS 
Seto: CD 
0476” CD 
06797" C2 
047A" 795 
047B8° 32 
O47E° CB 
0480" CA 
C405" SE 
0485” 80 
0486° 2F 
0487° CE 
0489° CB 
0488° CB 
0480" 89 
G43E°" 32 
O492 "32 
0494" 3A 
0497” C 
0498% 4F 
O499" 06 
0498" 21 
O49E" 22 
04A1”" CD 
0444" C3 
G4A7" OE 
0409" C3 


RSG BV 


80-COL.M 


SUPPORT 
1080.SRC 
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CRZ80/11 version 10.36.14 


LO DE,»MOVESZ 

ADD HL,DE ; 

LD DE, CSTKEND) 

ADD HL,DE ; 

JP CysEXTNRM 3 

LO DE, CRAMTOP) 

AND A 

SBC HL»DE 

JP NCyEXTNRM 35 
SETMD2 CALL ENBLEXT ; 

LD A,B ; 

CALL UGETVAL ; 

PUSH BC ; 

LD A,B 

CALL CHNGVID ; 

CALL ENBLHOME ; 

Pop BC ; 

LO AyC 

LD CVIDMOD),A$ 
UPDATE BIT 5yA 

JP Z,GOODRET 
SXT4 LD A,OC1H 

OR B 

CPL 

SRL B 

SRL B 

SRL 8 

OR B 

LO CATTBYT)5A 

LO CATTCTL)>5A 

LD A,CLINLEN) 

INC A 

LO CyA 

LO B,18H 

LO HL »0 

LD CCOOROS)sHL 

CALL UPDPQOSN 

Jp GOODRET 
EXTNRM LO C32 

Jp ERRRET 


CRZ80/11 version 10.36.14 


Page 12-1 


HL=TOTAL ROOM NEEDED 


ADD MEMORY IN US 
NOT ENOUGH MEMORY TO OPEN DF2 


NOT ENOUGH MEMORY 

ENABLE ROM EXT. 

MODE TO A 

H/W VALUE TO 8s.VIOMOGD VALUE TO C 


LL RTNe TO OPEN/CLOSE 2NOD OF 
ENABLE HOME BANK 
ALUE FOR VIOMOD 
UPDATE VIOMQD 
> UPDATE SYSTEM VARS. BASED ON MODE 
s DONE IF MODE 
> 64/80-COL. MODE - 
; STORE ATTRIBUTE BYTE BASED 
; ON INK: SELECTION 


ATTRIBUTE BSYTE 
BASIC PARAMETER 


os <f 


“oe 
ow 
oO 
" 
po 
Ls | 
= 
m 
Uv 
| J 
va) 
4 
~ 
4 
oO 
> a 
a 
_ 
= 
. 
Oo 
“ 
a 
i a | 
c 
. 
oOo 
Vv 


PLOT POSITION 
UPDATE ANO STORE HOME POSITION 
RETURN BC=0 

cr. 4 


RETURN BC=2 FOR NO ROOM 
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ADL -- ASC 002 80-COL.MODE SUPPORT CRZ80/11 version 10.36.14 3-Jan-84 1931034 “ Rage: -23=2 
INTERNAL SUB-RTNS. TO80.SRC 


O4D9° = 3E 63 972 LD Ay3 

0408" O03 F4 973 QUT COKHSPT) 5A 

0400" Fi 974 POP AF 

O4DE*:. C9 975 RET 
976 , 

04DF" FS5 977 ENBLHOME PUSH AFP 

OSE0* . AF 978 XOR A 

GAEL": :03 -F4 979 OUT COKHSPT),A 

0463.5 08 EF 980 IN Ay CHREXPT) 

0465": £6: 5F 981 AND O3FH 

OSET | OS) -FF 982 OUT CHREXPT),A 

OSEO* | Fi 983 POP AF 

O4EA” C9 984 RET 
985 ; 
986 s TEST PARAMETER VALIDITY 
987 ; IF NOT VALID, DISCARDS RETURN 
988 + AND EXITS VIA INVPAR 

GSES ¢ (SE a4 989 TSTPAR LO Ay23 a. TES LENE 223 

O4ED” 88 990 CP B 

O4EE” 30 04 991 JR NCyTSTPR1 

OSE0 i) (ES oh i. PARERR POP. fF 

B4E 2S OCS O24 7< 993 JP INVPAR 

O4F4° 3A 0033” 994 TSiPes ED AyCLINLEN) 

O46F 7" 30 995 DEC: A 

O4F8”°” 89 996 cP C +: TESTCOL 6. SLINE: CENGTH=21 

O4F9° 38 F5 391 JR CyPARERR 

2 ad = IA ON 998 RET 
999 ; 
1000 > CONVERT LINE/COL. FROM USER TO 
1001 s INTERNAL FORMAT AND VICE VERSA 
1002 + \BSER. FORMATS: LINES 0-23 
1003 ; COL. 0-79¢€84) 
1004 > INTERNAL. FORMAT? 
1005 ; LINES 24-1 
1006 ; COL. €86)81-2 
1007 ; CCOL.1 END OF LINE) 
1008 ; 
1009 ; 

O4FG" i SA5 0033: 1010 CONVFM LOD Ay CLINLEN)D 

D4FF* 30 1011 INC A 

O500"') aa 1012 SUB C 

05027 GF 1013 LD CoA > CONVERT 

U9Ge SE. £8 1014 LD AySCRSZ 

0504" 930 1015 SUB B 

0505" 47 1016 LD SyA 

0506"° C9 1017 RET 
1018 ; 
1019 ; 
10290 : 

0507” ; 1021 UPDOPOSN: ; ENTER HERE WITH BC=LINE/COL.IN 

1022 s INTERNAL FORMAT 
050-7") CD:0506" 1023 CALL CALCPOS s CALCULATE POSITION 
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INTERNAL SUB-RTNS. I080.SRC 

050A" 18 44 1024 JR STPOSN ; STORE UPDATED POSITION AND RETURN 
1025 : 
1026 : ; ROUTINE TO CALCULATE POSITION IN OF 
1027 ; $ UPDATES BIT POSITION IN VARIABLE DFBIT 
1028 ; ; RETURNS DF ADDRESS IN HL. PRESERVES 
1029 : ; LINE/COL.POSITION IN BC 
1030 H 

050C” CD 053F’ 1031 CALCPOS CALL LNBU ; GET DISPLAY FILE AORS.FOR LINE 

OSOF*’ 3A 0033” 1032 LD A,yCLINLEN) ; TEST WHICH DF 

0512° 3C 1033 INC A 

0513” 91 1034 SuB C 

0514° F5 1035 PUSH AF 3 SAVE COL.NO.CO-CLINLEN-1)) 

0515° SF 1036 LD E,A 

0516" 87 1037 ADD Ayd 

0517" 83 1038 ADD Ase 3 3%<80-COL.POS.> / 4 = 64=-COL.POS. 

0518" CB 3F 1039 SRL A 

051A” CB 3F 1040 SRL A 

OSiC*: CB 47 1041 BIT O5A 

OS5iE” 28. 06 1042 JR Z,CALCP1 

0520° F5 043 PUSH AF $ ODD COLS.ARE IN DF2 

0521° 3E& 20 1044 LO Ay20H 

6523, B4 1045 OR H ; IN DF2 

0524" 67 1046 LD HA 

0525° Fil 1047 pgp AF 

0526" AT 1048 CALCP1 AND A 3 CLEAR CARRY 

0527° iF 1049 RRA $ COL/2 IS POSITION IN DISPLAY FILE 

0528° SF . 1050 LO E,A 

0529° A 0030° 1051 LO Ay CMARGIN) ; GET ADJUSTMENT VALUE 

052C’ 983 1052 ADD Aye 

052D° 5F 1053 LD E yA 

O52E" 16 00 1054 D 0,0 ; DE CONTAINS OFFSET INTO LINE 

0530° 19 1055 ADD HL,DE $ HL CONTAINS DOF ADDRESS 

0531° 1€ 07 1056 LD Ey7 

0533" Fi 1057 PoP AF $ A=COL.POSN.FOR 80 COLS. 

0534" 'E6 03 1058 AND 3 ; 

0536" 28 02 1059 JR Z,CALCP2 $ STARTS AT BIT 7 

0538’ SF 1060 LO E,A $ STARTS. AT BIT 153 OR'S 

0539° 30 1061 DEC A 

053A° 83 1062 CALCP2 ADO AsE 

0538" 32 003&° 1063 LD COFBITD5A 

OS3E° C9 1064 RET ; BC=POS. HL=DF ADDRESS 
1065 ; 
1066 H 

O53F° 1067 LNSU$ s GET DISPLAY FILE ADDRESS 
1068 ; FOR START OF LINE IN B 

O53F” 3£ 18 '1069 LD AySCRSZ 

0541° 30 1070 SUB 8B 

0542° 57 1071 LO O,A 

0543" OF 1072 RRCA 

0544" OF 1073 RRCA 

0545° OF 1074 RRCA 

0546" £6 EO 1075 AND OEOK 
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ADL 


- ASC 002 80-COL.MODE SUPPORT CRZ80/11 version 
INTERNAL SUB-RTNS. TO080.SRC 
0548° 6F 1076 LO LA 
0549" TA 1077 LOD AyD 
O544" E618 1078 AND 18H 
054C’. Fé 40 1079 OR 40H 
O54E”". 67 1080 LO HA 
O546F” C9 1081 RET 
1082 
0550” 1083 STPOSN? 
0550° .€0.°43:.0034" 1084 LO . CCURP 
0554" 22 0036” 1085 ED. COFAD 
URL See 1086 RET 
1087 ; 
0558" 1088 LOPOSN: 
0558” €D 4B 0034’ 1089 LD BGect 
GSSC" 2A OG36" 10390 LD HL,CO 
O55F°> C9 1091 RET 
1092 ; 
1093 ; 
1094 ; 
1095 ; 
1096 ; 
1097 ; 
0560" €5 1098 GTC2BC PUSH HEL 
0561" 46 1099 LO B,C 
Ssee"°". 7 1100 LO AyH 
Sen. Be v2o 1101 XOR 20H 
0565" (67 1102 LOD HA 
05667 < (Cb 6F 1103 BI 5,5A 
0568° 20 0 1104 JR NZy 
G56A*. 23 1105 INC ‘AL 
0568" 4E 1106 GTC281 0 Cy¢ 
O56C" SA OO03E”’ 1107 LD 4,¢ 
GO56F".. 06: OF 1108 SUB 
OS71” ED 44 1109 NEG 
Sits. “28-0d 1110 JR ZyG 
Go75 UBM 1111 GTCSHFT RL C 
O57 7 * ae 8 iiitz2 RL B 
O579°" - 30 1413 DEC A 
OSTA.” 29:°F9 1114 JR NZs 
ere + tee S435 GTC282 POP HL 
Pst. Gs 1116 RET® 
1117 ; 
1118 
1119 INCLUDE C 
1120 SUBTTL CH 
LPZI 
4422 ; 
1123 +; Dot patterns fo 
1124 ; character 
1125 ; 0 = white 
1126 ; Vv 
£327 
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OS),8C 
RS) ,HL 


URPOS) 
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GTC281 
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DFBIT) 


4 
e¢ 
Nm 
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nm 
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r char 
with 
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20 
1 = bl 
ll 
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>; STORE CURSOR POSITION 


LOAD CURSOR POSITION 


ad 


RTNe USED BY GTCHAR TO PUT 
6 PIXELS FROM DOF IN B REG.BITS 
FOR MATCHING AGAINST CHAR.SET 


; SAVE OF ADRS. 
; SCAN LINE FROM OF 


TOGGLE TO ALTERNATE. OF 


TEST WHICH > OF 


oO 


we «es 


BC CONTAINS CHAR.AT DFBSIT 


-- 


SHIFT 6 PIXELS FOR CHARACTER 
TO By BITS 7-2 


T FOR 40/780 COL.MODES 


on the TV screen: 

is at offsets 8x (top line) to 8x+7 
no margins between character spaces 
horizontally 
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